       IDENTIFICATION DIVISION.
       PROGRAM-ID NUMBERSUM.
	
       ENVIRONMENT DIVISION.
	   CONFIGURATION SECTION.
	   SOURCE-COMPUTER.
	   OBJECT-COMPUTER.
	
       DATA DIVISION.
       WORKING-STORAGE SECTION.
       77 NUM PIC 99.
       77 SUM PIC 999 VALUE IS 0.
       77 CH  PIC X.
       77 T   PIC ZZZ.
	
       PROCEDURE DIVISION.
       SPARA.
	    DISPLAY "=== THE SUM OF A SET OF NUMBERS ===".
	    DISPLAY " ".
       RPARA. 
	    DISPLAY (LIN, COL) "NUMBER:".
	    ACCEPT NUM.
	    ADD NUM TO SUM.
	    DISPLAY (LIN, COL) "CONTINUE [Y/N]? ".
	    ACCEPT CH.       
	    IF CH = "Y" GO RPARA.
       PPARA.
	    DISPLAY " ".
	    MOVE SUM TO T.
	    DISPLAY (LIN, COL) "SUM OF THE NUMBERS IS: ", T.
	    ACCEPT CH.
	    STOP RUN.
